

		** TABLE A16--Above and below median income **
		
				clear
				version 16.1
				set max_memory 32g, permanently
				set seed 1234
				set level 95 		
				cd "~" 
				
				use "turnout_eba_stdlag.dta"
				
				
									
 ******************************
 ** Above median income only **
 ******************************
 
		gen rich=0 if gni_ln_sl~=.
		replace rich=1 if gni_ln_sl>=-.077081 & gni_ln_sl~=.
		tab rich
		
		reg vt comp
		regsave using eba_vtnlr_4, replace
		
		tuples 				///
			asia			///
			ban 			///
			boycott			///
			competitive_s	///
			concurrentsamedate ///
			dist_mag_s		///
			econ_global_sl 	///
			eeurope			///
			election_2 		///
			election_3 		///
			election_3_4 	///
			election_4		///			 
			election_5_6 	///
			election_7_8	///
			enpp_s 			///
			enpp_sq_s 		///
			exec_response	///
			federalism		///
			fract_ethnic_s 	///
			fract_lang_s 	///
			fract_rel_s 	///
			gini_sl 		///
			gni_pc_growth_sl ///	
			harassment		///
			hdi_index_s 	///
			inflation_ln_sl ///
			islamic_majority ///
			latin_america	///
			leg_size_ln_s	///
			life_exp_sl		///
			maj_status_s	///
			majoritarian	///
			mixed			///
			norway			///
			num_elections_ln_s ///
			nz				///
			oceania			///
			oecd			///
			party_frac_s	///
			plurality		///
			polity2_sl		///
			pop_density_ln_sl ///
			prev_el_time_s	///
			qual_democ		///
			radios_pc_ln_sl	///
			samerica		///
			share30to69ofVAP ///
			subnat_rev_sl 	///
			subnat_exp_sl 	///
			sufferage_s		///
			suffreg			///
			sweden			///
			swiss			///
			unemployment_sl	///
			unicameral		///
			union_density	///
			unionisation	///
			urban_pop_pct_sl ///
			usa				///
			violence		///
			votingage		///
			west			///
			y1919_1994		///
			, max(3) min(3)  kronecker
		
				forvalues i = 1/`ntuples'   {
				   reg vt  `tuple`i'' comp pr gni_ln_sl pop_ln_sl if rich==1, robust cluster(ccode)
					estat vif
					local vif1=r(vif_1) 
					local vif2=r(vif_2)
					local vif3=r(vif_3)
					local vif4=r(vif_4)	
					local vif5=r(vif_5)	
					local vif6=r(vif_6)	
					local vif7=r(vif_7)	
					local vif8=r(vif_8)	
					local vif9=r(vif_9)		
					local vifn1=r(name_1)
					local vifn2=r(name_2)	
					local vifn3=r(name_3)	
					local vifn4=r(name_4)
					local vifn5=r(name_5)	
					local vifn6=r(name_6)	
					local vifn7=r(name_7)	
					local vifn8=r(name_8)	
					local vifn9=r(name_9)		
	
			regsave using eba_vtnlr_4, tstat pval ci autoid append detail(all) ///
					addlabel(vifn1,`vifn1', vif1 , `vif1',  ///
							vifn2, `vifn2', vif2 , `vif2',  ///
							vifn3, `vifn3', vif3 , `vif3',  ///
							vifn4, `vifn4', vif4 , `vif4',  ///
							vifn5, `vifn5', vif5 , `vif5', ///
							vifn6, `vifn6', vif6 , `vif6',  ///
							vifn7, `vifn7', vif7 , `vif7',  ///
							vifn8, `vifn8', vif8 , `vif8', ///			
							vifn9, `vifn9', vif9 , `vif9' )  			
						}						
						 					
											
			
 *************************
 ** Below median income **
 *************************

			
		reg vt comp
		regsave using eba_vtnlr_5, replace
		
		tuples 				///
			africa 			///
			asia			///
			ban 			///
			boycott			///
			competitive_s	///
			concurrentsamedate ///
			dist_mag_s		///
			econ_global_sl 	///
			eeurope			///
			election_2 		///
			election_3 		///
			election_3_4 	///
			election_4		///			 
			election_5_6 	///
			election_7_8	///
			enpp_s 			///
			enpp_sq_s 		///
			exec_response	///
			federalism		///
			fract_ethnic_s 	///
			fract_lang_s 	///
			fract_rel_s 	///
			gini_sl 		///
			gni_pc_growth_sl ///	
			harassment		///
			hdi_index_s 	///
			inflation_ln_sl ///
			islamic_majority ///
			latin_america	///
			leg_size_ln_s	///
			life_exp_sl		///
			maj_status_s	///
			majoritarian	///
			mixed			///
			num_elections_ln_s ///
			oceania			///
			party_frac_s	///
			plurality		///
			polity2_sl		///
			pop_density_ln_sl ///
			prev_el_time_s	///
			qual_democ		///
			radios_pc_ln_sl	///
			samerica		///
			subnat_rev_sl 	///
			subnat_exp_sl 	///
			sufferage_s		///
			suffreg			///
			unemployment_sl	///
			unicameral		///
			urban_pop_pct_sl ///
			violence		///
			y1919_1994		///
			, max(3) min(3)  kronecker
		
				forvalues i = 1/`ntuples'   {
				   reg vt  `tuple`i'' comp pr gni_ln_sl pop_ln_sl if rich==0, robust cluster(ccode)
					estat vif
					local vif1=r(vif_1) 
					local vif2=r(vif_2)
					local vif3=r(vif_3)
					local vif4=r(vif_4)	
					local vif5=r(vif_5)	
					local vif6=r(vif_6)	
					local vif7=r(vif_7)	
					local vif8=r(vif_8)	
					local vif9=r(vif_9)		
					local vifn1=r(name_1)
					local vifn2=r(name_2)	
					local vifn3=r(name_3)	
					local vifn4=r(name_4)
					local vifn5=r(name_5)	
					local vifn6=r(name_6)	
					local vifn7=r(name_7)	
					local vifn8=r(name_8)	
					local vifn9=r(name_9)		
	
			regsave using eba_vtnlr_5, tstat pval ci autoid append detail(all) ///
					addlabel(vifn1,`vifn1', vif1 , `vif1',  ///
							vifn2, `vifn2', vif2 , `vif2',  ///
							vifn3, `vifn3', vif3 , `vif3',  ///
							vifn4, `vifn4', vif4 , `vif4',  ///
							vifn5, `vifn5', vif5 , `vif5', ///
							vifn6, `vifn6', vif6 , `vif6',  ///
							vifn7, `vifn7', vif7 , `vif7',  ///
							vifn8, `vifn8', vif8 , `vif8', ///			
							vifn9, `vifn9', vif9 , `vif9' )  			
						}						
			
			
															
											
											
											
											
											
